home *** CD-ROM | disk | FTP | other *** search
/ Diccionario Visual Trilingue / VISUAL.iso / SHARED.DIR / 10109_Sauts de termes.ls < prev    next >
Encoding:
Text File  |  1997-07-04  |  1.0 KB  |  36 lines
  1. on mouseDown
  2.   global gCurrentPos, gNbItem
  3.   if getAt(gNbItem, 2) <= 6 then
  4.     return 
  5.   end if
  6.   set inc to 0.0
  7.   if the mouseV < SpriteTop(20) then
  8.     repeat while the mouseDown
  9.       if rollOver(19) and (the mouseV < SpriteTop(20)) then
  10.         set inc to inc + 0.19999999999999998
  11.         if (getAt(gCurrentPos, 2) - integer(inc)) < 2 then
  12.           setAt(gCurrentPos, 2, 2)
  13.         else
  14.           setAt(gCurrentPos, 2, getAt(gCurrentPos, 2) - integer(inc))
  15.         end if
  16.         SetWindow2(2, 7)
  17.       end if
  18.     end repeat
  19.   else
  20.     if the mouseV > SpriteBottom(20) then
  21.       repeat while the mouseDown
  22.         if rollOver(19) and (the mouseV > SpriteBottom(20)) then
  23.           set inc to inc + 0.19999999999999998
  24.           if (getAt(gCurrentPos, 2) + integer(inc)) > (getAt(gNbItem, 2) - 6) then
  25.             setAt(gCurrentPos, 2, getAt(gNbItem, 2) - 6)
  26.           else
  27.             setAt(gCurrentPos, 2, getAt(gCurrentPos, 2) + integer(inc))
  28.           end if
  29.           SetWindow2(2, 8)
  30.         end if
  31.       end repeat
  32.     end if
  33.   end if
  34.   ActiveField(2)
  35. end
  36.